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INTERNAL SYSTEM SUBROUTINES 



This section contains descriptions of internal system subroutines 
that are callable only from programs running in system mode. These 
subroutines generally are of use only to systems programmers. 
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ATTNTRP 
Subroutine Description 



Purpose: To allow control to be returned to the user on an 
attention interrupt from a terminal. 

Location: Resident System 

Alt. Entry: ATTNT 

Calling Sequences: 

Assembly: LM , 1 , =A (exit , region) 
CALL ATTNTRP 

Parameters : 

GRO should contain zero or the location to transfer 
control to if an attention interrupt occurs. 

GR1 should contain the location of a 72 -byte save 
region for storing pertinent information. 

Return Codes : 

Successful return. 

4 Illegal parameter specified. 

Description: A call on the subroutine ATTNTRP sets up an attention 
interrupt intercept for one interrupt only. The calling 
sequence specifies the save region for storing information 
and a location to transfer to upon the next occurrence of 
an attention interrupt. When an interrupt occurs and the 
exit is taken, the intercept is cleared so that another 
call to ATTNTRP is necessary to intercept the next 
attention interrupt. When an attention interrupt occurs, 
the exit is taken in the form of a subroutine call (BALR 
14,15 with a GR13 save region provided) to the location 
previously specified. If the exit subroutine returns to 
MTS (BR 14) , MTS will handle the interrupt as if ATTNTRP 
had not been called originally. This feature allows the 
user to take brief control of the interrupt before MTS 
takes complete control of the interrupt. When MTS takes 
control of the interrupt, execution of the program will be 
terminated and a message will be printed providing the 
location of the interrupt. 

If GRO is zero on a call to ATTNTRP, the attention 
interrupt intercept is disabled. GR1 should be zero, or 
it should point to a valid save region. 
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When the attention interrupt exit is taken, the first 
eight bytes of the save region contain the attention 
interrupt PSW, and the remainder contains the contents of 
general registers through 15 (in that order) at the time 
of the interrupt. The floating-point registers remain as 
they were at the time of the interrupt. GR1 will contain 
the location of the save region. GR2 contains bits 
indicating attributes of the interrupted program: 

bit 28: 1 - (X' 00000008 ' ) if program was executing in 

user execution mode, 
bit 27: 1 - (X' 00000010 ' ) if program was executing in 

virtual -machine mode, 
bit 25: 1 - (X' 00000040 ' ) if program was executing 

with SVC trapping enabled. 

The remaining bits in GR2 are unpredictable. The contents 
of GR0 and GR3 through GR12 are unpredictable. 

If on a call to ATTNTRP the first byte of the save region 
is X'FF', ATTNTRP does not return to the calling program; 
rather, the right-hand half of the PSW and the general 
registers are immediately restored from the save region 
and a branch is made to the location specified in the 
second word of the region. This type of call on ATTNTRP, 
after the first attention interrupt exit is taken, allows 
the user to set a switch (for example) and to return to 
the point at which he was interrupted with the attention 
interrupt intercept again enabled. 

Routines called from within an attention interrupt exit 
routine must be recursive if execution is to be resumed 
after interrupt processing. The MTS I/O subroutines READ, 
WRITE, SCARDS, SPRINT, SPUNCH, SERCOM, and GUSER are 
recursive; the FORTRAN I/O subroutines are not. 

The ATTNTRP item of the GUINFO/CUINFO subroutine may be 
used to save a previous exit address and associated region 
so that it may be later restored. 
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CMP STATS 
System Subroutine Description 



Purpose: To record the text and type of MTS commands, CLS commands, 
machine checks, unit checks, and other system events that 
may be useful either individually or in a statistical 
context . 

Location: Resident System 

Calling Sequences: 

Assembly: CALL CMDSTATS , (text , length, type, abbr) 

Parameters : 

text is the location of the data portion of the 
CMDSTAT record. This is the ADATA portion of 
the dsect described in COPY : CMDAREADSECT . 

length is the location of a fullword giving the 
length of the text that is to be recorded. 

type is the location of a fullword CMDSTAT record 
type: 

1 = Command 

2 = Overflow 

3 = Reload 

4 = Old style unit-check data (obsolete) 

5 = End-of-User (user has been signed-off) 

6 = 3270 DSR Statistics 

7 = HASP Log 

8 = JOBS (SYSTEMSTATUS) statistics 

9 = TSFO DSR Statistics 

10 = Machine- check records 

11 = Operator console log 

12 = Editor statistics 

13 = Loader statistics 

14 = Plot statistics 

15 = SPIRES statistics 

15 = Unused (was SPIRES usage data) 

17 = Merit statistics 

18 = Operator plotter statistics 

19 = SSRTN summary statistics 
2 = Unused 

21 = HASP device statistics (e.g., OMR cards) 

22 = PW failure statistics 

23 = *STATISTICS records 

24 = System software errors 
2 5 = Unit -check data 
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26 = Reserved for use at WSU (VM data) 

27 = Help statistics 

28 = Response time data collection single-job 

item 

abbr is the location of the four-letter official 
command name for the command that is being 
recorded, if the type code is 1. For type 
codes other than 1, this parameter is 
ignored. 

Return Codes : 

The item was successfully recorded. 

4 The item could not successfully be recorded and an 
overflow item has been generated. 
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FREED 
System Subroutine Description 

Purpose: To release a FDUB acquired by the GETD subroutine. 

Location: Resident System 

Calling Sequences: 

Assembly: L , f dub 
CALL FREED 

Parameters : 

GRO contains a FDUB -pointer obtained by a call to 
the GETD subroutine. 

Return Codes : 

Successful return. 

4 Invalid FDUB -pointer . 

Description: The FDUB for the device obtained by a call to GETD is 
released. When all the FDUBs for the device have been 
released, the device and associated logical device name 
(LDN) are released. 
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GETACCRE 
System Subroutine Description 

Purpose: To read an accounting record for a given signon ID. 
Location: Resident System 
Calling Sequences: 

Assembly: CALL GETACCRE, (ccid, region, sws) 

Parameters : 

ccid is the location of the 4 -character signon ID 
whose accounting record is to be read. 

region is the location of the region into which the 
accounting record is to be placed. (This 
should be at least LACCR bytes in length) . 

sws is the location of a switch controlling the 
locking of the appropriate accounting file 
(*ACC0UNTING1 - *ACC0UNTING5 ) . 

- lock *ACCOUNTINGn for modification and 

leave it locked after the record is read. 

1 - lock *ACCOUNTINGn for read and unlock it 

before returning. 

Values Returned: 

GRO contains a FDUB -pointer for *ACCOUNTINGn if sws 
is zero and the return code is zero. 

Return Codes : 

Successful return. 
4 Nonexistent signon ID. 
8 Error. 
12 Invalid parameter. 

Description: The format of the accounting record is defined by the 
ACCDCT macro in COPY : MTS .MACROS . 

Only programs with a specific set of program keys may call 

GETACCRE, and only some of those programs may lock the 

file *ACCOUNTINGn for modification. Calls from programs 

with the correct program keys may be made from either user 
or system mode. 
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GETD 
System Subroutine Description 



Purpose: To obtain a device and/or reserve a logical device number 
(LDN) for use. 

Location: Resident System 

Calling Sequences: 

Assembly: L 2 , name 
L 1 , type 
CALL GETD 

Parameters : 

name is the location of a 4 -character UMMPS device 
name . 

type is the location of a 4 -character UMMPS device 
type, zero if the type should not be checked, or 
C'NONE' if a logical device name (LDN) is to be 
reserved but no device is to be attached. 

Values Returned: 

GRO contains a FDUB -pointer which may not be used in 
standard MTS I/O calls, but which will contain 
the LDN for the device if the return code is 
zero . 

Return Codes : 

Successful return. 

4 Device is busy. 

8 Device is logically off-line. 

12 Device does not exist. 

Description: If the device requested is already attached to the MTS job 
(through a previous call to GETD, GETFD, GETFDN, etc., but 
not via direct use of the SVC GTUNIT) , the logical device 
number (LDN) for that device is placed in the FDUB and 
returned. If the device is not currently in use and the 
device type in GR1 is "NONE", an unused LDN is reserved 
and returned in the FDUB that is returned in GRO. 
Otherwise, an unused LDN is reserved and an attempt is 
made to obtain the device using SVC GTUNIT. 

There are two advantages to using this subroutine instead 
of the direct use of the SVC GTUNIT. The first is that 
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there will be no conflicts in the use of LDNs between MTS 
and user programs. The second is that the FDUB is 
automatically released when the program is unloaded, and 
when all FDUBs for the device are released, the device and 
LDN are released. If the SVC GTUNIT is used directly, a 
device may end up attached to the task with no method of 
releasing it without providing a short program to release 
it, or stopping the job (a signoff is insufficient) . 
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GETFD 
System Subroutine Description 

Purpose: To obtain a file or device. 

Location: Resident System 

Entries: GETFDN, GETFDl, GETFD5 , GETFD6 

Calling Sequence: 

Assembly: LA 1 , FDname 
CALL GETFD 

Parameters : 

GR1 contains the location of the first character of 
the FDname of the file or device wanted. The 
complete name must be terminated by a blank. 
The name does not have to be aligned. 

Return Codes : 

Successful return. 

4 Invalid address. 

8 Device is busy. 

12 Device is not operational. 

GETFD will give a zero return code for nonexistent, 
nonaccessible, or invalid file or device names. The 
type code given by word 2 of the information area 
from GDINFO, GDINF02 , or GDINF03 can be used to check 
for the status of the file or device. This type code 
should always be tested for the validity of the 
result from GETFD since nonzero return codes are 
rarely returned by GETFD. A type code of "NONE" will 
indicate a nonvalid result from GETFD. 

Values Returned: 

GRO contains the FDUB -pointer if a successful return 
is made. 

Notes: FORTRAN users can call this subroutine by using 
the RCALL subroutine. 

Normally, calls to GETFD assign the FDUB to the 
correct FDUB chain for the CLS . Calls to GETFD5 
place the FDUB on chain 5. Calls to GETFD6 place 
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the FDUB on chain 6. Calls to GETFDN place the 
FDUB on the chain specified by the chain number 
given in GRO . GETFD1 is an alternate name for 
GETFD5 . The calling sequence for the above entry 
points is the same as for GETFD. 

The FDUB chain numbers are assigned as follows: 

- MSOURCE and MS INK 

1 - SOURCE, previous SOURCE, SINK, previous 

SINK, and $LOGged files and devices 

2 - AFD 

3 - MTS CLS 

4 - USER CLS 

5 - Mounted devices, held *...*' s, and 

$LOCKED files 

6 - Device support routines 

The chain numbers for the other CLS's can be 
determined by adding 5 to the CLS number (see the 
description of the GUINFO/CUINFO subroutine in 
this volume) . There is no special CLS chain for 
the MTS(O) and USER(l) CLS's. 



Description: 



If the name is a device, the device is acquired. If the 
name is a file, the file is not opened until the first 
usage. Thus this subroutine cannot determine whether or 
not a file exists. The caller can determine whether the 
file exists by calling GDINFO. The name may be a 
concatenation of file or device names each followed by 
modifiers or a line number range as described in "Files 
and Devices" in MTS Volume 1, The Michigan Terminal 
System . If the FDUB -pointer returned is used in a call to 
READ or WRITE, the modifiers or line number ranges will be 
used, and if a concatenation was specified, the usual 
sequencing through the concatenation will take place. 



Example : 



Assembly: 



LA 1 , FNAME 
CALL GETFD 



FNAME DC C'DATAFILE ' 

FORTRAN: INTEGER ADROF 
EXTERNAL GETFD 
LOGICAL* 1 FNAME (9) /'DATAFILE '/ 

CALL RCALL ( GETFD , 2 , DUMMY , ADROF ( FNAME ) , 1 , FDUB ) 

The above examples call GETFD to obtain a FDUB -pointer for 
the file DATAFILE. 
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GETSPACE 
System Subroutine Description 



Purpose: To acquire storage. 

Location: Resident System 

Alt. Entry: GETSPA 

Calling Sequences: 

Assembly: L 0, switch 
L 1 , length 
CALL GETSPACE 



L 0, switch 

L 1 , length 

L 2 , index 

CALL GETSPACE 

GETSPACE [length] [,T=switch] [ , EXIT=err] 

Parameters : 

GRO contains switches: 

Bit 31 = 1 Return not made unless space is 
available. 
Return always made with return code 
indicating whether space is 
available . 

30 = 1 Storage acquired is associated with 
the current level of LINK so that it 
is released at the next return from 
a LINK, or the next XCTL. This bit 
is ignored if bit 28 is set. 
Storage acquired is associated with 
the highest level program so that it 
is not released until execution 
terminates . 

29 = 1 Allocate storage in the system seg- 
ment. Bit 29 is ignored if bit 28 
is set or if bits 0-7 of general 
register 1 are not zero. This op- 
tion is valid only in system mode. 

28 = 1 Use storage index number in general 
register 2 . 

27 = 1 Allocate storage in the virtual ma- 
chine segment (ignored if an explic- 
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it segment number is given in gener- 
al register 1) . 

26 = 1 Allocate protectable storage (half- 
page multiples, half -page aligned). 

25 = 1 (privileged) Allocate storage in the 
system segment which will be 
released when the current CLS is 
unloaded. This is the same as set- 
ting bit 24 when GETSPACE is called 
in the MTS CLS . 

24 = 1 (privileged) Allocate storage in the 
system segment which will be 
released when the current MTS com- 
mand is finished. (This is known 
internally as SFTC storage.) 
Other bits in GRO must be zero. 

GR1 contains the length (in bytes) of storage 
desired. If this is not a multiple of 8, the 
next largest multiple of 8 will be used. The 
upper limit for a storage request is 1,048,576 
bytes (1 segment) . 

Normally space will be allocated wherever avail- 
able in virtual memory. However, if the first 
byte (byte 0) of GR1 is nonzero, it is assumed 
to be the number of the segment in which the 
storage is to be allocated. If this is an 
invalid number [is less than 6, or is greater 
than the maximum (currently 12)] , or if this 
space request cannot be allocated in this seg- 
ment, a return is made with a return code of 4. 

GR2 contains the storage index number to use if bit 
2 8 of GRO is 1; otherwise, GR2 is ignored. 

A GR13 save area is not required for a call to this 
subroutine. 

Values Returned: 

GR1 contains the location of the first byte of the 
storage region acquired. The first word of this 
region is set to the length (in bytes) of the 
region. 

Return Codes : 

Successful return. Storage has been acquired. 
4 Space is not available. 
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Notes: FORTRAN users can call this subroutine by using 
the RCALL subroutine and giving GETSPA as the 
entry point. 

The complete description for using the GETSPACE 
macro is given in MTS Volume 14, 360/370 Assem- 
blers in MTS . 

Storage located in system segments may only be 
allocated or released from programs executing in 
system mode. 

If GETSPACE is called from a nonexecution CLS 
through the CLS transfer vector or through the 
V-con GETSPCLS, the high-order bit of GRO is not 
1, and the current CLS is not the USER CLS, then 
the call is made as if GRO bit 29 was set. Unless 
bit 30 is set, this storage is assigned the 
storage index number for the current CLS or, in 
the case of MTS, is assigned to "storage for this 
command . " 

Description: See the "Virtual Memory Management" section in MTS Volume 
5, System Services , for further details on storage alloca- 
tion and storage index numbers. 

Examples: Assembly: L , SWITCH 

L 1 , LENGTH 
CALL GETSPACE 



SWITCH DC F' 0' 
LENGTH DC F'256' 

FORTRAN: INTEGER SPACE 

EXTERNAL GETSPA 

CALL RCALL (GETSPA, 2,0, 256, 2 , DUMMY, SPACE) 

The above two examples call GETSPACE to acquire 256 bytes 
of storage. The storage will be associated with the 
highest level program. 
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GPKSPACE 
System Subroutine Description 



Purpose: To return a storage protection key for a storage region in 
either the virtual or real machine environment. 

Location: Resident System 

Calling Sequences: 

Assembly: L 1, region 
CALL GPKSPACE 

Parameters : 

GRl contains the address of the region for which the 
storage key is to be returned. 

Values Returned: 

GRO Bits 0-15: Unused 

16-23: Storage key 
24-30: Unused 

31: 0, if real machine key 

1, if virtual machine key 

Return Codes : 

Successful return. 

4 Storage not allocated to this task or not allo- 
cated within a single GETSPACE allocation. GRO is 
still valid. 

8 Invalid region address. 

Notes: For use in virtual -machine mode, the storage key 
is specified in bits 16-22; bit 23 is unused and 
should be zero. 

For use in real-machine mode, bits 16-23 should 
have one of the following values: 

= reset to normal 

1 = store protect 

2 = fetch protect 
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GPSECT, OPSECT, FPSECT 
System Subroutine Description 



Purpose: To acquire, query, and release psect (dsect) storage 
allocations . 

Location: Resident System 

Calling Sequences: 

Assembly: L , id 

L 1 , length 
CALL GPSECT 

L 0,id 
CALL QPSECT 

L 0, id 
CALL FPSECT 

Parameters : 

GRO contains an unique fullword identifier for the 
psect (i.e., a fixed address within the calling 
program could be used as such an identifier) . 

GR1 (GPSECT only) contains the length of the psect 
to be allocated. 

A GR13 save area is not required for a call to the 
GPSECT, QPSECT, or FPSECT subroutines. 

Values Returned: 

GR1 (GPSECT only) contains the address of the psect 
allocated. 

GR1 (QPSECT only) contains the address of the psect 
if found, otherwise zero. 

Return Codes : 

GPSECT: 

Psect found. 

4 Psect not found but allocated. 

8 Error return from GETSPACE subroutine. 

12 Internal error in GPSECT. 
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QPSECT: 



Psect found. 
4 Psect not found. 
8 Not used. 
12 Internal error in QPSECT. 

FPSECT: 

Psect released. 
4 Psect not found. 

8 Error return from FREESPAC subroutine. 
12 Internal error in FPSECT. 

Note: A separate collection of psect ids is maintained 
by each CLS . Storage allocated for CLS's other 
than the USER CLS is located in the system segment 
and is assigned the storage index number used by 
the CLS. 

Description: The GPSECT, QPSECT, and FPSECT subroutines are used to 
acquire, query, and release storage to be used for psects 
(dsects) in the calling program. An identifier for the 
psect and the length of the psect are specified in id and 
length . 

The GPSECT subroutine is used to allocate storage for the 
psect. If a psect with the identifier id already exists, 
its address is returned and a new psect is not allocated. 

The QPSECT subroutine is used to query the existence of a 
psect with the identifier id. A new psect is not 
allocated. 

The FPSECT subroutine is used to release the storage for 
the psect with identifier id . 

Example: Assembly: 





L 


0, ID 




L 


1,LEN 




CALL 


GPSECT 




L 


0, ID 




CALL 


FPSECT 


ID 


DC 


A(ID) 


LEN 


DC 


F'4096 



The example allocates a psect of 4096 bytes with the 
identifier which is an address contained within the 
calling program (e.g., the address of ID) . The psect is 
then released later in the program. 
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GUINFO/CUINFO 
System Subroutine Description 



Index 



Name 



34 


LDTLOCN 


Fullword 


53* 


UNLODOFF 


Fullword 


97 


FILETV 


Fullword 


101 


CATBUFF 


Fullword 


102 


BTCHMORE 


Fullword 


103 


DEVTBLS 


Fullword 


105 






111 


ASYNCCTL 


Fullword 


115 


RUNETIME 


Dblword 


123 


USERGONE 


Fullword 


132 


LOADT 


Fullword 


140 


SCRFILES 


Fullword 


142 


PDNTBL 


Fullword 


143 


CMDSEEN 


Fullword 


144 


SCRFNAME 


8 Bytes 


153* 


CNT9TP 


Fullword 


155* 


CNT7TP 


Fullword 


160 


BILLCLAS 


Fullword 


161 


RTDCA 


Fullword 


165 


CLSNAME 


4 Bytes 


198 


RATENBR 


Fullword 


200- 


225 





233* NOSDS 

235 NOFILERE 

243 UNPROT 

244 



245 
246 

248 

250 



PROTOFF 
ACCPRIV 

ACCCCPF 

ACCPUSE 



2 56 SIGNEDON 

261-273 

274 AUTOSIG 



Table of System Items Arranged by Index 
Size Description 

Address of table of components dynamically 

loaded by MTS (LOADT table) 

1 -> $SET UNLOAD=OFF 

Address of file transfer vector used by MTS 

Address of catalog buffer used by MTS 

1 -> MORE specified on MTS job request 

Address of device tables used by MTS 

Used for array-processor billing (UQV) 

Asynchronous event control switch 13 

Cumulative real time for CLS 5 

User is being signed off 

Address of load tables used by MTS 

Address of table of scratch files owned by task 

Address of pseudodevice name table 

1 -> Command "seen" by user 

Internal scratch- file prefix (replaces SCRFCHAR 

to yield scratch- file name) 

Count of 9 -track tapes (UQV) 

Count of 7 -track tapes (UQV) 

Billing Class 14 

Address of data area used by RESPONSE- time data 

collection facility 

Name of CLS currently in control (characters) 

Number determining rate set in use 

Reserved for local installations (UBC starts at 

200) 
Fullword 1 -> $SET SDSMSG=OFF (default is ON) 
Fullword 1 -> $SET FILEREF=OFF 
Fullword 1 -> User may set $SET PROT=OFF (logical OR of 

items 246 and 250) 

1 -> A system-mode program is loaded as the 

USER CLS 
Fullword 1 -> $SET PROT=OFF 
Fullword 1 -> The accounting privileged bit (ACCPRIV in 

ACCSWS1) is set 
Fullword 1 -> User may create public files 

ACCSWS1) 
Fullword 1 -> A protection-privileged user 

ACCSWS2) 
Fullword 1 -> User is fully signed on. 

Reserved for use by UBC 
Fullword 1 -> Automatic signoff after "n" idle minutes 



PRIVPROG Fullword 



(ACCCCLF 
(ACCPUSE 
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275 

278-282 

283-290 



291 

292 

297 

299 

317- 

330 



331 



354 

355 

356 
357 
358 

359 

360- 

364 

365- 

376 

378- 

381 

382 

383 

384 

385 

389 

390 



USERNMID 
319 

MACRO 



4 Bytes 



Fullword 



MACVFDST Fullword 



332-333 

337 LOCPPGS Fullword 

338 GLOBPPGS Fullword 
339-352 

353 PSWGRFR 104 Byts 



LDDCTPTR Fullword 

APSWGRFR Fullword 

SUBTASK Fullword 
STSKMSTR Fullword 
STSKNAME 4 Bytes 



SRCINVID 

363 

EDSYMTAB 

374 

FCBCHAIN 

380 

SOUFDUB 

PSOUFDUB 

SINKFDUB 

PSINFDUB 

AFDFDUB 

RUNCSTRT 



Fullword 

Fullword 

Fullword 

Fullword 
Fullword 
Fullword 
Fullword 
Fullword 
Fullword 



RUNCEND Fullword 



394-399 

401-410 



411 



USERDEF1 Fullword 



412 USERDEF2 Fullword 

413 USERDEF3 Fullword 

414 USERDEF4 Fullword 

415 USERDEF5 Fullword 
419-428 



429' 



TYPEPTUS Fullword 



may not be suppressed by user 
Reserved for use by UQV 
Used for Xerox 9700 billing (WSU) 
Used for floppy-disk and array-processor bill- 
ing (UQV) 

Used for Xerox 9700 billing (WSU) 
Used for surcharge billing (WSU) 
Used for Xerox 9700 billing (UQV) 
Name ID set by $SET NAME=name (characters) 
Reserved for future INITFILEs 

$SET MACRO={OFF | ON|BROKEN} (0|1|2) (default 
OFF) 

Address of virtual file dsect (used by macro 
processor) 

Reserved for UQV (special forms) 
Local page-printer page limit 
Global page-printer page limit 
Reserved for UBC (resource manager) 
PSW, GRS, FRS for specific CLS (used by SDS and 
$DIS) 

Address of loader setup area for EXEC CLS (used 
by SDS) 

Address of PSW, GRS, FRS for specific CLS (used 
by SDS) 

1 -> This is a subtask 

Task number of subtask' s "master" task 
Subtask name (left - justified with trailing 
blanks) 

Macro processor invocation ID 
Reserved for RPI 
Address of editor symbol table 
Reserved for UQV 

Address of file control block chain 
Reserved for RPI 
FDUB for * SOURCE* 
FDUB for previous $ SOURCE 
FDUB for *SINK* 
FDUB for previous $SINK 
FDUB for *AFD* 

Head of chain of previous $RUN commands (used 
by $DIS RUNS) 

End of chain of previous $RUN commands (used by 
$DIS RERUN) 
Reserved for UBC 

Reserved for UQV (phototypesetter and "new" 
array processor) 

Used for program surcharging (add only) 
Used for program surcharging (add only) 
Used for program surcharging (add only) 
Used for program surcharging (add only) 
Used for program surcharging (add only) 
Reserved for UBC 
Cum. phototypesetter units for task 
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430* TYPEPAPR Fullword 

431 SINUMBR Fullword 

434-439 

441-446 

447 EDITPSCT Fullword 

448 

449 AMNTRLCK Fullword 

450 



Cum. phototypesetter media for task (cm 2 ) 
1111111 

Reserved for UQV 
Reserved for UQV 

Global storage pointer for EDIT subroutine 
Reserved for UQV 

Address of subtasking monitor coroutine ser- 
vices lock byte 
Reserved for UNE 



30: 
29: 

28: 



27 



1 



1 Asynchronous event control 

Bit 31: 1 -> Stack attention interrupts 

-> Stack attention interrupts unless CLS has an 

ATTNTRP exit enabled 
-> Stack timer interrupts while CLS is active 
-> Stack interrupts that cause control to be taken 
away from this CLS and given to another CLS 
(e.g., the MTS out-of -money check) 
-> Don't quit even if the job STOPped or DSROFF 
is called 
14 Billing class 

0=University /Government 

l=Commercial 

2=Exchange 

3 =Non- University 

4=Special University/Government (EPA) 

5=Research 

6=Course 
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KWSCANNM 
System Subroutine Description 



Purpose: To perform keyword processing on a character string. This 
subroutine is designed for use by non-MTS jobs or MTS jobs 
where it is not safe to call standard system subroutines 
such as GETSPACE and GETFD. 

Location: Resident System 

Calling Sequence: 

The calling sequence for KWSCANNM is the same as for 
KWSCAN except that the rvec parameter (word 8 in the 
parameter list) specifies a region of 1024 bytes of 
storage for use by KWSCANNM. The first 27 words of rvec 
are used as a return area as described for KWSCAN. 

Description: KWSCANNM provides the same features as KWSCAN except that 
some of the sws bits are not available since they require 
features available only in the MTS environment. For 
example, prompting is not available, the FDname right-hand 
side type is not available, and features which require the 
use of FDnames or GETSPACE calls are not available. 
Specifically, only the following sws bits are available 
for KWSCANNM; all other bits are ignored: 

15 Execute subroutines instead of instructions. 

16-17 Perform spelling correction. 

18 Formatting of return vector. 

19 Allow parenthesized left-hand sides. 
20-21 Special separators between LHS and RHS . 

22 Special delimiter characters. 

23 Left-hand side initial substrings. 

27 2 -byte lengths used in left-hand table. 
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PGNTTRP 
Subroutine Description 



Purpose: To allow control to be returned to the user on a program 
interrupt . 

Location: Resident System 

Alt. Entry: PGNTT 

Calling Sequences: 

Assembly: LM , 1 , =A (exit , region) 
CALL PGNTTRP 

Parameters : 

GRO should contain zero or the location to transfer 
control to if a program interrupt occurs. 

GR1 should contain the location of a 72 -byte save 
region for storing pertinent information. 

Return Codes : 

Successful return. 

4 Illegal parameter specified. 

Note: FORTRAN users can call this subroutine by using 
the RCALL subroutine specifying PGNTT as the entry 
point . 

Description: A call on the subroutine PGNTTRP sets up a program 
interrupt intercept for one interrupt only. The calling 
sequence specifies the save region for storing information 
and a location to transfer to upon the next occurrence of 
a program interrupt. When an interrupt occurs and the 
exit is taken, the intercept is cleared so that another 
call to PGNTTRP is necessary to intercept the next program 
interrupt. When a program interrupt occurs, the exit is 
taken in the form of a subroutine call (BALR 14,15 with a 
GR13 save region provided) to the location previously 
specified. If the exit subroutine returns to MTS (BR 14) , 
MTS will handle the interrupt as if PGNTTRP had not been 
called originally. This feature allows the user to take 
brief control of the interrupt before MTS takes complete 
control of the interrupt. When MTS takes control of the 
interrupt, execution of the program will be terminated and 
a message will be printed providing the location of the 
interrupt . 
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If GRO is zero on a call to PGNTTRP, the program interrupt 
intercept is disabled. GR1 should be zero or point to a 
valid save region. 

When the program interrupt exit is taken, the first eight 
bytes of the save region contain the program interrupt 
PSW, and the remainder contains the contents of general 
registers through 15 (in that order) at the time of the 
interrupt. The floating-point registers remain as they 
were at the time of the interrupt. GR1 will contain the 
location of the save region. GR2 contains bits indicating 
attributes of the interrupted program: 

bit 28: 1 - (X' 00000008 ' ) if program was executing in 

user execution mode, 
bit 27: 1 - (X' 00000010 ' ) if program was executing in 

virtual -machine mode, 
bit 25: 1 - (X' 00000040 ' ) if program was executing 

with SVC trapping enabled. 

The remaining bits of GR2 are unpredictable. The contents 
of GRO and GR3 through GR12 are unpredictable. 

If, on a call to PGNTTRP, the first byte of the save 
region is X'FF', PGNTTRP does not return to the calling 
program; rather the right-hand half of the PSW and the 
general registers are immediately restored from the save 
region and a branch is made to the location specified in 
the second word of the region. This type of call on 
PGNTTRP, after the first program interrupt exit is taken, 
allows the user to set a switch (for example) and to 
return to the point at which he was interrupted with the 
program interrupt intercept again enabled. 

The PGNTTRP item of the GUINFO/CUINFO subroutine may be 
used to save a previous exit address and associated region 
so that it may be later restored. 
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PKEY 
System Subroutine Description 

Purpose: To push and pop program keys. 

Location: Resident System 

Calling Sequences: 

Assembly: CALL PKEY, (string, pkey) , VL 

FORTRAN: CALL PKEY ( string , pkey , &rc4 , &rc8 , &rcl2 , &rcl6 ) 

Parameters : 

string is the location of a command (see below) 
terminated with a trailing blank. 

pkev (optional) is the location of a new program 
key terminated with a trailing blank. 

rc4 , . . . , rc!6 (optional) are statement labels to 
transfer to if a nonzero return code occurs. 

VL must be specified even if both parameters are 
given in order to facilitate the addition of new 
parameters . 

Return Codes : 

Successful return. 

4 Invalid command string. 

8 Invalid program key. 

12 Attempt to push or pop too many times. 

16 Invalid parameters. 

Description: The legal command strings are: 

PUSH The current program key is pushed onto the stack 
of program keys (one stack per CLS) and the new 
program key is made the current key. The new 
key must be in the table of program keys. If no 
new program key is specified, the current pro- 
gram key is pushed onto the stack, but remains 
the current key. 

POP The program key on the top of the stack is made 
the current program key and is removed from the 
stack. The pkev parameter is not required. 
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SET The new program key is made the current program 
key. The old program key is not pushed onto the 
stack of program keys. 

RESET The stack of program keys is cleared, and the 
current program key is reset to its original 
value. 

Subject to restrictions on which program keys are valid, 
calls to PKEY made be made in either user or system mode. 

Currently, user programs may only specify the program key 
*EXEC in addition to the program key assigned to the file 
being executed. This will be expanded to include other 
program keys in the future. 

Example: FORTRAN: CALL FTNCMD (' ASSIGN 9 9=WXYZ : LOGFILE ; ') 

CALL PKEY ('PUSH ' , ' *EXEC ') 

CALL PKEY ( ' POP ' ) 
WRITE (99 , 10 0) A,B,C 
10 FORMAT (3F10 .2) 

CALL PKEY ('PUSH ' , ' *EXEC ') 



The above example assigns FORTRAN I/O unit 99 to the file 
WXYZ : LOGFILE , which is permitted to a program key. When 
the program writes into this file, the PKEY subroutine is 
called to switch the program key from *EXEC to the program 
key of the file, and subsequently is called to restore the 
program key back to *EXEC. 
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RERUN 
System Subroutine Description 

Purpose: To force a HASP batch job to be rerun. The current job is 
not charged. 

Location: Resident System 

Calling Sequences: 

Assembly: CALL RERUN 

Return Codes : 

4 Job is not a HASP batch job. 

If the job can be rerun, the subroutine does not 
return . 

Description: This subroutine can only be executed from system mode. 
Programs calling RERUN should write a message to the 
operator's console explaining why the job is being rerun. 
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SETFPRIV 
System Subroutine Description 



Purpose: To make a file privileged. 
Location: Resident System 
Alt. Entry SETFP 
Calling Sequences: 

Assembly: CALL SETFPRIV, (what , onoff , info , errcode, errmsg) 

Parameters : 

what is the location of either 

(a) a file name with a trailing blank (if 
info =0) , 

(b) a fullword- integer FDUB pointer (such as 
returned by GETFD) (if info =l) , 

(c) a fullword- integer logical I/O unit num- 
ber (if inf o =l) , or 

(d) an 8-character, left- justified logical 
I/O unit name (e.g., SCARDS) (if info =l) . 

onoff is the location of a fullword- integer or 1. 
If 1, the file is made privileged. 

info is the location of a fullword- integer or 1 
which identifies the type of what parameter. 

errcode (optional) is the location of a fullword in 
which SETFPRIV will place the error number if 
an error return (return code 4) is made. If 
errcode is omitted, the errmsg parameter must 
also be omitted. Assembly language users who 
wish to omit this parameter should either 
follow the variable parameter list convention 
(high-order bit of the previous parameter 
adcon is set to 1) or supply an adcon which 
is zero (rather than pointing to a zero) . 

Error numbers less than 100 indicate an error 
in the mechanics of the call or in the value 
of the parameters. 

Number Message 

1 Illegal parameter list pointer 

2 Illegal "what" parameter address 

3 Illegal "ONOFF" parameter address 

4 "ONOFF" parameter value not or 1 
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5 Illegal "info" parameter address 
7 Only privileged users may change a 
file's privileged status 
11 "info" parameter value not or 1 

Error numbers between 100 and 105 indicate 
errors that occur in accessing the file. 

101 Illegal file name 

102 File not found - file "xxxx" 

103 Access not allowed to file "xxxx" 

(Permit access is required to set the 
privileged status.) 

104 Deadlock situation, try later - file 
"xxxx" 

105 Interrupted out of wait for locked 
file "xxxx" 

Error numbers 2 01 and above indicate a system 
error . 

errmsg (optional) is the location of a 20-fullword 
(80 -character) region in which SETFPRIV will 
place the corresponding error message if an 
error occurs . 

rc4 is the statement label to transfer to if the 
corresponding return code occurs . 

Return Codes : 

The privileged status of the file has been 

changed. 
4 Error return. The privileged status has not been 

changed, but the errcode and errmsg values have 

been set, if specified. 
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SPKSPACE 
System Subroutine Description 



Purpose: 



To set storage protection keys for a storage region in 
either the virtual or real machine environment. 



Location: Resident System 

Calling Sequences: 

Assembly: LM 0,2, pars 
CALL SPKSPACE 

Parameters : 



GRO contains the length in bytes of the region for 

which storage keys are to be set. 
GRl contains the address of the region for which the 

storage keys are to be set. 



GR2 Bits 0-15 
16-23 
24-30 

31 



Unused (must be zero) 

Storage key 

Unused (must be zero) 

0, if real machine key 

1, if virtual machine key 



Return Codes : 



Notes: 



Successful return. 

4 Storage region not contained within a single 
GETSPACE allocation. 

8 Invalid parameters, i.e., length not a multiple of 
2048, region not half-page aligned, or user-mode 
call attempting to change keys for a nonuser page. 

For use in virtual -machine mode, the storage key 
is specified in bits 16-22; bit 23 is unused and 
should be zero. 

For use in real-machine mode, bits 16-23 should 
have one of the following values: 

= reset to normal 

1 = store protect 

2 = fetch protect 
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Purpose: 



STARTJOB 
System Subroutine Description 



To allow a user-mode program to issue the STARTJOB SVC 
with certain predefined argument strings. 



Location: Resident System 
Calling Sequences: 

Assembly: CALL STARTJOB, (name, tasknum) , VL 

Parameters : 

name is an 8 -character, left- justified name that 
must match a name in the internal STARTJOB 
table. This table includes the argument 
string that is to be used with the STARTJOB 
SVC as well as a program key that must match 
the caller's current program key before the 
call will be allowed. 

tasknum (optional) is the task number of the task 
started by the STARTJOB SVC. 

Return Codes : 

Successful return. 

4 Unable to start the job after three attempts. 

8 name not in the table. 

12 Program key not correct for the name specified. 

16 Invalid parameters. 
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SVCTRP 
Subroutine Description 



Purpose: To suspend program execution whenever an SVC instruction 
is executed by a user program. 

Location: Resident System 

Calling Sequences: 

Assembly: LM , 1 , =A (exit , region) 
CALL SVCTRP 

Parameters : 

GRO should contain zero or the location to transfer 
control to if an SVC instruction is executed. 

GR1 should contain the location of a 72 -byte save 
region for storing pertinent information. 

Return Codes : 

Successful return. 

4 Illegal parameter specified. 

Note: FORTRAN users can call this subroutine by using 
the RCALL subroutine specifying SVCTRP as the 
entry point. 

Description: A call on the subroutine SVCTRP sets up an SVC intercept 
for one SVC instruction only. The calling sequence 
specifies the save region for storing information and a 
location to transfer to upon the next occurrence of an SVC 
instruction in the user program. When an SVC instruction 
is encountered and the exit is taken, the intercept is 
cleared so that another call to SVCTRP is necessary to 
intercept the next SVC instruction. When a SVC instruc- 
tion occurs, the exit is taken in the form of a subroutine 
call (BALR 14,15 with a GR13 save region provided) to the 
location specified by the GRO value in the call to SVCTRP. 
If the exit subroutine returns to MTS (BR 14) , MTS will 
declare the SVC instruction invalid, suspend program 
execution, and print a message providing the location of 
the intercept. 

If GRO is zero on a call to SVCTRP, the SVC intercept is 
disabled. GR1 should point to a valid save region in this 
case also. 
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When the SVC intercept exit is taken, the first eight 
bytes of the save region contain the PSW, and the 
remainder contains the contents of general registers 
through 15 (in that order) at the time of the intercept. 
The floating-point registers remain as they were at the 
time of the intercept. GR1 will contain the location of 
the save region. GR2 contains bits indicating attributes 
of the interrupted program: 

bit 28: 1 - (X' 00000008 ' ) if program was executing in 

user execution mode, 
bit 27: 1 - (X' 00000010 ' ) if program was executing in 

virtual -machine mode, 
bit 26: 1 - (X' 0000002 ' ) if program was executing 

with SVC trapping enabled. 

The remaining bits of GR2 are unpredictable. The contents 
of GR0 and GR3 through GR12 are unpredictable. 



If, on a call to SVCTRP, the first 
is X'FF', SVCTRP does not return 
rather the right-hand half of the 
registers are immediately resto 
and a branch is made to the loca 
second word of the region. This 
after the first SVC instruction 
allows the user to set a swi 
return to the point following the 
intercept again enabled. 



byte of the save region 

to the calling program; 

PSW and the general 

red from the save region 

tion specified in the 

type of call on SVCTRP, 

has been intercepted, 

tch (for example) and to 

SVC instruction with the 



The SVCTRP item of the GUINFO/CUINFO subroutine may be 
used to save a previously set exit to allow nesting of SVC 
intercepts . 

Example: In this example, the location of the first SVC instruction 
in a user program is recorded and execution is resumed 
with at the SVC instruction. 

LM 0, 1, =A (EXIT, REGION) 

CALL SVCTRP The intercept is enabled. 



USING EXIT, 15 



EXIT 


L 


0,4 (,1) 




SL 


0,=F'2' 




ST 


0, FIRSVC 




ST 


0,4 (,1) 




MVI 


(1) ,X'FF 




SR 


0, 




CALL 


SVCTRP 


REGION 


DS 


18F 


FIRSVC 


DS 


A 



Get address of SVC 
Back up to SVC instruction 
Remember location 
Restart at SVC 

Disable further intercepts 
Note GR1 points to REGION 
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TIMNTRP 
Subroutine Description 



Purpose: To enable, disable, or return from timer interrupts set by 
the SETIME subroutine. 



Location: Resident System 
Calling Sequences: 



Assembly: LM , 1 , =A (exit , region) 
CALL TIMNTRP 

Parameters : 

GRO should contain zero or the location of the exit 
routine to transfer control to when a timer 
interrupt occurs. 

GR1 should contain the location of a 76 -byte exit 
region for storing pertinent information. 

Return Codes : 

Successful return. 

4 Illegal parameter specified. 

Description: A call on the TIMNTRP subroutine sets up an exit for one 
timer interrupt only. The calling sequence specifies the 
location of an exit routine to transfer control to when 
the next timer interrupt occurs and an exit region for 
storing information. The timer interrupts themselves are 
set up by calls to the SETIME subroutine. 

TIMNTRP may be called several times with different exit 
regions and different exit routines specified. Each call 
on SETIME must also specify the exit region to be used 
when the interrupt occurs. This "subsetting" capability 
allows separate parts of large programs to use the timer 
interrupt facility independently. 

If GRO is zero, timer interrupt exits for the specified 
exit region are disabled. If, when a timer interrupt 
occurs, its exit is disabled, the interrupt will remain 
pending until the next call on TIMNTRP which enables the 
exit, and the exit will be taken immediately following the 
call. 

When a timer interrupt exit is taken, the exit is 
disabled, so that further timer interrupts which specify 
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this exit region will remain pending while the current one 
is being processed. The exit is taken in the form of a 
subroutine call (BALR 14,15 with a GR13 save area provid- 
ed) . At the time of this call, GR1 will point to the exit 
region, whose contents will be 

Word 1: the identifier passed to SETIME when the 

interrupt was set up. 
Words 2-3: the PSW at the time of the interrupt. 
Words 4-19: GR0-GR15 (in that order) at the time of 

the interrupt. 

GR2 contains bits indicating attributes of the interrupted 
program: 

bit 28: 1 - (X' 00000008 ' ) if program was executing in 

user execution mode, 
bit 27: 1 - (X' 00000010 ' ) if program was executing in 

virtual -machine mode, 
bit 25: 1 - (X' 00000040 ' ) if program was executing 

with SVC trapping enabled. 

If the exit routine returns to MTS (BR 14) , the user's 
program will be restarted at the point of the interrupt. 
The exit will be reenabled if the return code in GR15 is 
zero; otherwise, the exit will remain disabled until 
another call on TIMNTRP. The registers must be restored 
in the standard fashion when the exit routine returns. 



For further details, see also 
SETIME subroutine descriptions. 



the GETIME, RSTIME, and 
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